home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
PROGRAMM
/
DB_CLIPP
/
0292.ZIP
/
INV.ARC
/
INVPRINT.PRG
< prev
next >
Wrap
Text File
|
1985-12-21
|
1KB
|
70 lines
*invprint.prg
SET TALK OFF
STORE 9 TO LINECNT
STORE -8 TO RECORD
STORE 1 TO MPAGE
STORE DATE() TO MDATE
CLEAR
? ' Ensure top of paper is aligned with printhead'
?
?
?
?
WAIT
?
SET PRINT ON
SET MARGIN TO 2
? CHR(27)+CHR(99)+CHR(49)
? CHR(14)+CHR(27)+CHR(33)
? " HOUSEHOLD GOODS"
? CHR(15)
?
?
?
?
? 'Page # '+SUBSTR(STR(MPAGE),9,3)+" ì
As of "+DTOC(MDATE)
?
? CHR(27)+CHR(34)+CHR(27)+CHR(109)+CHR(48)
?
?
?
GO TOP
? 'ITEM AQUIRED ì
COST'
?
?
DO WHILE .NOT. EOF()
? ITEM, AQUIRED, COST
?
SKIP
RECORD=RECORD+1
LINECNT = LINECNT+2
IF LINECNT > 53
MPAGE=MPAGE+1
LINECNT = 0
IF MPAGE > 4
LINECNT = -1
ENDIF
? CHR(10)+CHR(10)+CHR(10)+CHR(10)+CHR(10)+CHR(10)
? 'Page # '+SUBSTR(STR(MPAGE),9,3)
?
? 'ITEM AQUIRED ì
COST'
?
LOOP
ELSE
ENDDO
? 'Records Reported'+STR(RECORD)
SUM COST TO MCOST
? ' ì
TOTAL'+STR(MCOST)
? CHR(12)
?
SET PRINT OFF
RETURN